﻿Public Class Movimiento

    Dim m_codigoMovimiento As Integer
    Dim m_codigoCuenta As Integer
    Dim m_fecha As Date
    Dim m_monto As Double
    Dim m_tipo As String
    Dim m_eliminado As Integer

    ''' <summary>
    ''' Crea un objeto vacio
    ''' </summary>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Sub New()

    End Sub

    ''' <summary>
    ''' Crea un objeto con los datos de movimiento
    ''' </summary>
    ''' <param name="p_codigoMovimiento">codigo del movimiento</param>
    ''' <param name="p_codigoCuenta">codigo de la cuenta contable</param>
    ''' <param name="p_fecha"></param>
    ''' <param name="p_monto">monto del movimiento</param>
    ''' <param name="p_tipo">tipo de movimiento</param>
    ''' <param name="p_eliminado">Eliminado</param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Sub New(ByVal p_codigoMovimiento As Integer, ByVal p_codigoCuenta As Integer, ByVal p_fecha As Date, _
                   ByVal p_monto As Double, ByVal p_tipo As String, ByVal p_eliminado As Integer)

        codigoMovimientoM = p_codigoMovimiento
        codigoCuentaM = p_codigoCuenta
        fechaM = p_fecha
        montoM = p_monto
        tipoM = p_tipo
        eliminadoM = p_eliminado

    End Sub

    ''' <summary>
    ''' Set/Get codigo del movimiento
    ''' </summary>
    ''' <value>Codigo del movimiento</value>
    ''' <returns>Integer</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Property codigoMovimientoM() As Integer
        Get
            Return m_codigoMovimiento
        End Get
        Set(ByVal p_codigoMovimiento As Integer)
            m_codigoMovimiento = p_codigoMovimiento
        End Set
    End Property

    ''' <summary>
    ''' Set/Get codigo de la cuenta contable
    ''' </summary>
    ''' <value>Codigo de la cuenta contable</value>
    ''' <returns>Integer</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Property codigoCuentaM() As Integer
        Get
            Return m_codigoCuenta
        End Get
        Set(ByVal p_codigoCuenta As Integer)
            m_codigoCuenta = p_codigoCuenta
        End Set
    End Property

    ''' <summary>
    ''' Set/Get de la fecha
    ''' </summary>
    ''' <value>Fecha</value>
    ''' <returns>Date</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Property fechaM() As Date
        Get
            Return m_fecha
        End Get
        Set(ByVal p_fecha As Date)
            m_fecha = p_fecha
        End Set
    End Property

    ''' <summary>
    ''' Set/Get monto del movimiento
    ''' </summary>
    ''' <value>monto</value>
    ''' <returns>Double</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Property montoM() As Double
        Get
            Return m_monto
        End Get
        Set(ByVal p_monto As Double)
            m_monto = p_monto
        End Set
    End Property

    ''' <summary>
    ''' Set/Get del tipo de movimiento
    ''' </summary>
    ''' <value>tipo del movimineto</value>
    ''' <returns>String</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Property tipoM() As String
        Get
            Return m_tipo
        End Get
        Set(ByVal p_tipo As String)
            m_tipo = p_tipo
        End Set
    End Property

    ''' <summary>
    ''' Set/Get del estado de la eliminacion
    ''' </summary>
    ''' <value>estado de la eliminacion</value>
    ''' <returns>Integer</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 16/06/2010, Modificado: 16/06/2010.</remarks>
    Public Property eliminadoM() As Integer
        Get
            Return m_eliminado
        End Get
        Set(ByVal p_eliminado As Integer)
            m_eliminado = p_eliminado
        End Set
    End Property

End Class
